100 REM *** NOMINEE '84
110 REM *** BY DAVID BIANCO
120 REM *** TRANSLATED FOR THE COMMODORE
130 REM *** BY DONNA K. WOODY
140 POKE53281,1:POKE53280,15:PRINTCHR$(144):POKE53272,23
180 PRINTCHR$(8)
190 REM *** TITLE PAGE ***
200 :
210 PRINTCHR$(147):PRINT"[206] [207] [205] [201] [206] [197] [197]  ' 8 4[144]"
220 PRINT"[212]HE GAME THAT LETS YOU CAMPAIGN AGAINST":PRINT
225 PRINT"[215]ALTER [205]ONDALE, [199]ARY [200]ART, AND THE REST":PRINT
227 PRINT"BY TESTING YOUR KNOWLEDGE OF PRESIDENT-":PRINT
230 PRINT"IAL POLITICS AND OF THE 1984 [196]EMOCRATIC":PRINT
235 PRINT"CAMPAIGN FOR THE PRESIDENTIAL NOMINATION"
240 PRINT:PRINTTAB(5)"[194] [217]   [196] [193] [214] [201] [196]   [194] [201] [193] [206] [195] [207]"
250 PRINT:PRINT"[156][212]RANSLATED FOR THE [195]OMMODORE BY"
255 PRINT:PRINTTAB(13)"[155][196]ONNA [203]. [215]OODY[144]"
257 POKE781,23:POKE782,16:SYS65520:PRINT"[193][206][217] [203][197][217]";:POKE198,0:WAIT198,1:GETKE$
258 PRINTCHR$(147)
259 :
260 REM *** SET UP ***
270 DIME(9),W(25),D(1),DE(10),TD(5),C$(12)
310 C$(2)="[215]ALTER [205]ONDALE"
320 C$(3)="[199]ARY [200]ART"
330 C$(4)="[202]ESSE [202]ACKSON"
340 C$(5)="[199]EORGE [205]C[199]OVERN"
350 C$(6)="[202]OHN [199]LENN"
360 C$(7)="[193]LAN [195]RANSTON"
370 C$(8)="[210]EUBIN [193]SKEW"
380 C$(9)="[197]RNEST [200]OLLINGS"
390 C$(10)="[213]NCOMMITTED"
395 C$(12)="[199]ERALDINE [198]ERRARO"
400 PRINTCHR$(147):PRINT
420 PRINT"[215]HAT IS YOUR FULL NAME, [205]R./[205]S."
425 INPUT"CANDIDATE";N$:IFLEN(N$)<12THENN$=N$+LEFT$("              ",13-LEN(N$))
427 C$(1)=LEFT$(N$,12):N$=LEFT$(N$,12)
430 PRINT:PRINT"[195]ONGRATULATIONS ON YOUR RECENT AN-"
435 PRINT"NOUNCEMENT OF YOUR CANDIDACY FOR"
437 PRINT"PRESIDENT, "N$:PRINT:PRINT
440 PRINT"[201]F YOU DO BECOME THE NOMINEE, WHO DO"
442 PRINT"YOU HAVE IN MIND FOR [214]ICE [208]RESIDENT?"
445 INPUTC$(11):V(1)=11
447 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][206][217][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:PRINTCHR$(147)
450 PRINT"[212]HE FOLLOWING PEOPLE ARE RUNNING FOR    PRESIDENT AGAINST YOU:"
460 PRINT
470 FORX=2TO9
480 PRINTX-1;"- ";
490 PRINTC$(X)
500 NEXT X
510 PRINT
520 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:PRINTCHR$(147)
529 :
530 REM *** QUESTIONS ***
540 PRINT"[196]URING YOUR CAMPAIGN, YOU WILL BE ASKED"
545 PRINT"QUESTIONS TO DETERMINE YOUR POPULARITY."
550 PRINT:PRINT"[193]NSWER ALL '[215]HICH [195]ANDIDATE' QUESTIONS"
552 PRINT"WITH A LAST NAME.  [193]NSWER ALL [217][197][211] OR [206][207]"
555 PRINT"QUESTIONS WITH 'Y' OR 'N'."
557 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][206][217][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:PRINTCHR$(147)
560 FORX=1TO5:GOSUB4860
570 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][206][217][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$
575 PRINTCHR$(147):NEXT
580 R3=11:GOSUB4450
589 :
590 REM *** IOWA ***
600 PRINTCHR$(147)
610 PRINTTAB(14)"[201][207][215][193] [195][193][213][195][213][211]"
620 PRINT:PRINT"[193]LL 9 MAJOR CANDIDATES ARE SCRAMBLING"
625 PRINT"FOR VOTES IN THE CAUCUSES TONIGHT,      [198]EBRUARY 21.":PRINT:PRINT
630 GOSUB4860
640 R3=5:GOSUB4450
650 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][206][217][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$
660 PRINTCHR$(147)"[200]ERE ARE THE ELECTION TOTALS...":PRINT:PRINT
670 E(1)=INT(D(1)/100*52):DE(1)=DE(1)+E(1)
680 E(2)=INT(33*(100-D(1))/100):DE(2)=DE(2)+E(2)
690 E(3)=INT(18*(100-D(1))/100):DE(3)=DE(3)+E(3)
700 E(5)=1:DE(5)=DE(5)+E(5)
710 KK=9:GOSUB6010
790 PRINT:PRINT"[193]LL THE CANDIDATES HAVE DECIDED TO GO"
795 PRINT"ON TO [206]EW [200]AMPSHIRE NEXT [212]UESDAY."
799 PRINT:PRINT
800 PRINT"[212]HE TELEVISION NETWORKS HAVE BEEN"
805 PRINT"ACCUSED OF ANNOUCING THE RESULTS EARLY."
807 PRINT:PRINT:PRINT
810 PRINT"[193][206][217] [203][197][217] [198][207][210] [212][200][197] [206][197][216][212] [208][210][201][205][193][210][217]";:POKE198,0:WAIT198,1:GETKE$
820 PRINTCHR$(147)
830 PRINTTAB(9)"[206][197][215] [200][193][205][208][211][200][201][210][197] [208][210][201][205][193][210][217]"
840 PRINT:PRINT"[215]ALTER [205]ONDALE HAS PREDICATED HE WILL"
845 PRINT"WIN.":PRINT:PRINT:PRINTN$" AND [199]ARY [200]ART HAVE"
847 PRINT"PREDICATED SECOND PLACE."
850 GOSUB4860
860 R3=10:GOSUB4450
862 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][206][217][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:PRINTCHR$(147)
880 PRINT"[212]HIS JUST IN....":PRINT:PRINT
890 PRINT"[201]T SEEMS [199]ARY [200]ART IS BEATING [215]ALTER    [205]ONDALE...":PRINT:PRINT:PRINT
900 PRINTN$" IS STILL AN UNKNOWN"
902 PRINT"FACTOR IN THIS RACE."
905 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][206][217][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:PRINTCHR$(147)
906 PRINT"[200]ERE ARE THE FINAL RESULTS COMING IN...":PRINT
910 E(1)=INT(D(1)/100*18):DE(1)=DE(1)+E(1)
920 E(2)=INT(8*(100-D(1))/100):DE(2)=DE(2)+E(2)
930 E(3)=INT(10*(100-D(1))/100):DE(3)=DE(3)+E(3)
940 E(5)=0
950 KK=9:GOSUB6010
1030 PRINT
1040 FORX=7TO9:PRINTC$(X)" HAS DROPPED OUT.":NEXT
1045 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][206][217][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:PRINTCHR$(147)
1050 PRINT:PRINT"[212]ODAY'S RESULTS ENSURE THAT THIS RACE"
1055 PRINT"WILL BECOME A MARATHON.":PRINT
1060 PRINT"[194]ETWEEN NOW AND '[211]UPER [212]UESDAY', WHEN"
1062 PRINT"THE MOST DELEGATES ARE CHOSEN, THERE"
1064 PRINT"ARE CAUCUSES IN [205]AIN AND [215]YOMING."
1065 PRINT:PRINT:PRINT
1066 PRINT"[208][210][197][211][211][160][193][206][217][160][203][197][217][160][212][207][160][211][197][197][160][215][200][193][212][160][200][193][208][208][197][206][197][196]      [212][200][197][210][197].";:POKE198,0:WAIT198,1
1068 GETKE$
1070 PRINTCHR$(147)
1080 PRINT"         [205][207][206][196][193][204][197]    [200][193][210][212]    ";LEFT$(N$,15)
1090 READS$,M,H
1100 E(1)=INT(D(1)/100*(M+H)):DE(1)=DE(1)+E(1)
1110 M=INT(M*(100-D(1))/100):DE(2)=DE(2)+M
1120 H=INT(H*(100-D(1))/100):DE(3)=DE(3)+H
1130 PRINT:PRINTS$;:FORX=1TO100:PRINT" ";:IFPEEK(211)=10THEN1150
1140 NEXTX
1150 PRINTSPC(4-LEN(STR$(M))-1);M,
1152 PRINTSPC(4-LEN(STR$(H))-1);H,
1154 PRINTSPC(4-LEN(STR$(E(1)))-1);E(1)
1160 IFS$="[215]YOMING"THENPRINT:PRINT:PRINT:GOTO1200
1170 GOTO1090
1180 DATA"[205]AINE",12,13,"[215]YOMING",7,8
1200 GOSUB4520
1210 PRINT:PRINT:PRINT"[193][206][217][160][203][197][217][160][198][207][210][160][212][200][197][160][206][197][216][212][160][208][210][201][205][193][210][217]";:POKE198,0:WAIT198,1:GETKE$
1220 PRINTCHR$(147)
1230 PRINTTAB(9)"[205][193][211][211][193][195][200][213][211][197][212][212][197][211][160][208][210][201][205][193][210][217]"
1240 PRINT:PRINT"[212]ODAY IS [205]ARCH 13, [211]UPER [212]UESDAY."
1242 PRINT"[208]RIMARIES AND CAUCUSES ARE BEING HELD"
1244 PRINT"IN 9 STATES.  [212]HE SECOND BIGGEST OF"
1246 PRINT"THEM IS [205]ASSACHUSETTS, WHERE [199]EORGE"
1248 PRINT"[205]C[199]OVERN SAYS IF HE DOESN'T GET 2ND"
1250 PRINT"PLACE, HE WILL DROP OUT.":PRINT
1260 GOSUB4860
1270 R3=5:GOSUB4450
1275 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:PRINTCHR$(147)
1280 PRINT"[212]HE RESULTS ARE AS FOLLOWS:":PRINT:PRINT
1300 E(1)=INT(D(1)/100*100):DE(1)=DE(1)+E(1)
1310 E(2)=INT(31*(100-D(1))/100):DE(2)=DE(2)+E(2)
1320 E(3)=INT(47*(100-D(1))/100):DE(3)=DE(3)+E(3)
1330 E(5)=INT(22*(100-D(1))/100):DE(5)=DE(5)+E(5)
1340 KK=6:GOSUB6010
1410 PRINT
1420 PRINT"[199]EORGE [205]C[199]OVERN HAS DECIDED TO WITHDRAW"
1422 PRINT"HIS CANDIDACY, DUE TO HIS LESS THAN 2ND"
1424 PRINT"PLACE FINISH HERE.":PRINT:PRINT:PRINT
1430 PRINT"[198][207][210][160][212][200][197][160][207][212][200][197][210][160][211][213][208][197][210][160][212][213][197][211][196][193][217][160][210][193][195][197][211], [208][210][197][211][211][193][160][203][197][217].";:POKE198,0:WAIT198,1
1432 GETKE$
1450 REM *** FIGURE AND PRINT THE DELEGATES FOR THE NON-HIGHLIGHTED PRIMARIES
1452 REM *** AND CAUCUSES
1460 PRINTCHR$(147)
1470 PRINT"           [205][207][206][196][193][204][197] [200][193][210][212] [202][193][195][203][211][207][206]  ";LEFT$(N$,6)
1480 READS$,M,H,J
1490 E(1)=INT(D(1)/100*(M+H+J)):DE(1)=DE(1)+E(1)
1500 M=INT(M*(100-D(1))/100):DE(2)=DE(2)+M
1510 H=INT(H*(100-D(1))/100):DE(3)=DE(3)+H
1520 J=INT(J*(100-D(1))/100):DE(4)=DE(4)+J
1530 PRINT:PRINTS$;
1532 IFPEEK(211)=10THEN1550
1534 PRINT".";
1536 GOTO1532
1540 NEXTX
1550 PRINTSPC(6-LEN(STR$(M))-1);M;TAB(17);
1553 PRINTSPC(6-LEN(STR$(H))-1);H;TAB(23);
1554 PRINTSPC(6-LEN(STR$(J))-1);J;TAB(31);
1556 PRINTSPC(6-LEN(STR$(E(1)))-1);E(1)
1560 IFS$="[206] [205]EXICO"THEN3520
1570 IFS$="[208]. [210]ICO"THEN2010
1580 IFS$="[207]REGON"THEN3290
1590 IFS$="[215]ASH."THEN1680
1600 IFS$="[195]OLORADO"THEN3050
1610 IFS$="[206]. [196]AKOTA"THEN1750
1620 IFS$="[214]ERMONT"THEN2810
1630 IFS$="[214]IRGINIA"THEN2310
1640 IFS$="[215]ISC."THEN2560
1650 GOTO1480
1660 DATA"[193]LABAMA",35,13,9,"[211]AMOA",6,0,0,"[198]LORIDA",77,50,1,"[199]EORGIA",31,28,17
1662 DATA"[200]AWAII",27,0,0,"[206]EVADA",6,11,0,"[207]KLAHOMA",19,28,0
1664 DATA"[210]HODE [201]S.",12,12,0,"[215]ASH.",31,34,11
1670 PRINT"[197]VEN THOUGH [200]ART WON THE POPULAR VOTE IN"
1672 PRINT"[198]LORIDA, [205]ONDALE GOT MORE DELEGATES."
1680 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$
1690 PRINTCHR$(147)
1700 PRINT:PRINT"[196]UE TO A POOR SHOWING IN THE [211]OUTH,"
1702 PRINT"[202]OHN [199]LENN HAS ALSO DROPPED OUT.  [212]HE"
1704 PRINT"FOUR REMAINING CANDIDATES ALL FEEL THAT"
1706 PRINT"THEY ARE IN THIS RACE TO THE FINISH."
1708 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$
1710 PRINTCHR$(147)
1712 PRINT"[211]ATURDAY, THERE WERE THREE PRIMARIES"
1714 PRINT"AND CAUCUSES."
1716 PRINT:PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][206][217][160][203][197][217][160][212][207][160][211][197][197][160][212][200][197] [210][197][211][213][204][212][211][160][198][210][207][205][160]  [212][200][197][205].";
1718 POKE198,0:WAIT198,1:GETKE$
1730 GOTO1460
1740 DATA"[193]LASKA",9,4,1,"[196]ELAWARE",12,5,0,"[206]. [196]AKOTA",8,4,0
1750 PRINT:PRINT:PRINT:GOSUB4520:PRINT:PRINT:PRINT
1760 PRINT"[193][206][217][160][203][197][217][160][198][207][210][160][212][200][197][160][205][201][195][200][201][199][193][206][160][195][193][213][195][213][211]";:POKE198,0:WAIT198,1:GETKE$
1770 PRINTCHR$(147)
1780 PRINTTAB(12)"[205][201][195][200][201][199][193][206][160][195][193][213][195][213][211]"
1790 GOSUB4860
1800 R3=10:GOSUB4450
1820 PRINT:PRINT:PRINT"[212]HE FOLLOWING ARE THE RESULTS FROM THE"
1822 PRINT"THE [205]ICHIGAN CAUCUSES.":PRINT
1830 E(1)=INT(D(1)/100*153):DE(1)=DE(1)+E(1)
1840 E(2)=INT(94*(100-D(1))/100):DE(2)=DE(2)+E(2)
1850 E(3)=INT(49*(100-D(1))/100):DE(3)=DE(3)+E(3)
1860 E(4)=INT(10*(100-D(1))/100):DE(4)=DE(4)+E(4)
1870 E(5)=0
1880 KK=4:GOSUB6010
1960 PRINT:PRINT
1970 PRINT"[200]ART NEEDS MORE VICTORIES TO GIVE HIM A"
1972 PRINT"CHANCE AT WINNING AT THE CONVENTION THIS[202]ULY.":PRINT
1980 PRINT"[193][206][217][160][203][197][217][160][212][207][160][211][197][197][160][212][200][197][160][207][212][200][197][210][160][210][193][195][197][211][160][212][207][196][193][217]";:POKE198,0:WAIT198,1:GETKE$
1990 PRINTCHR$(147)
2000 GOTO1460
2010 :
2020 DATA"[193]RKANSAS",24,9,7,"[203]ENTUCKY",21,3,6,"[205]ISS.",23,1,11
2022 DATA"[211]. [195]AROLI",12,7,17,"[208]. [210]ICO",53,0,0
2030 PRINT:PRINT:GOSUB4520:PRINT:PRINT
2040 PRINT"[193][206][217][160][203][197][217][160][198][207][210][160][212][200][197][160][201][204][204][201][206][207][201][211][160][208][210][201][205][193][210][217]";:POKE198,0:WAIT198,1:GETKE$
2050 PRINTCHR$(147)
2060 PRINTTAB(12)"[201][204][204][201][206][207][201][211][160][208][210][201][205][193][210][217]"
2070 PRINT:PRINT"[212]HE FOLLOWING ARE SOME HEADLINES YOU"
2072 PRINT"WOULD SEE IS YOU LOOKED IN THE PAPERS"
2074 PRINT"TODAY, [205]ARCH 20:":PRINT
2076 PRINT"4 [195][193][206][196][201][196][193][212][197][211] [201][206] [201][204][204][201][206][207][201][211] [195][204][193][211][200] [207][206][160][195][201][214][201][204]                  [210][201][199][200][212][211]"
2078 PRINT:PRINT"[201][204][204][201][206][207][201][211] [214][201][212][193][204] [204][197][199] [201][206] [206][207][205][201][206][193][212][201][207][206] [210][213][206]"
2080 PRINT:PRINT"[201][204][204][201][206][207][201][211] [194][207][207][211][212][211] [205][207][206][196][193][204][197]":PRINT
2082 PRINT"[196][197][205][207][195][210][193][212][201][195] [208][210][197][211][201][196][197][206][212][201][193][204] [195][207][206][212][197][206][196][197][210][211] [199][197][193][210] [213][208] [198][207][210] [211][200][207][215][196][207][215][206] [201][206] [201][204][204][201][206][207][201][211]"
2084 PRINT:PRINT"[201] ASSUME YOU GET THE PICTURE.":PRINT
2086 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:PRINTCHR$(147)
2090 GOSUB4860
2100 R3=5:GOSUB4450
2110 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:PRINTCHR$(147)
2120 PRINT"[199]ARY [200]ART, WHO LED IN THE POLLS, SEEMS"
2122 PRINT"TO BE LOSING!  [200]ERE ARE THE RESULTS:":PRINT
2130 E(1)=INT(D(1)/100*193):DE(1)=DE(1)+E(1)
2140 E(2)=INT(114*(100-D(1))/100):DE(2)=DE(2)+E(2)
2150 E(3)=INT(41*(100-D(1))/100):DE(3)=DE(3)+E(3)
2160 E(4)=INT(38*(100-D(1))/100):DE(4)=DE(4)+E(4)
2170 KK=4:GOSUB6010
2250 PRINT
2260 PRINT"[212]HESE RESULTS PROVE THAT ";:IFDE(1)>DE(2)THENPRINTC$(1)
2270 IFDE(1)<DE(2)THENPRINTC$(2)
2280 PRINT"HAS THE BEST CHANCE FOR THE [196]EMOCRATIC"
2282 PRINT"NOMINATION THIS [202]ULY AT THE CONVENTION."
2284 PRINT
2290 PRINT"[194]ETWEEN THE [201]LLINOIS [208]RIMARY AND THE"
2292 PRINT"[206]EW [217]ORK PRIMARY [193]PRIL 3RD, THERE ARE A"
2294 PRINT"NUMBER OF PRIMARIES AND CAUCUSES. ":PRINT:PRINT
2296 PRINT"[208][210][197][211][211][160][193][160][203][197][217][160][212][207][160][211][197][197][160][212][200][197][160][210][197][211][213][204][212][211]";:POKE198,0:WAIT198,1:GETKE$
2300 GOTO1460
2310 :
2320 DATA"[195]ONN.",23,36,1,"[203]ANSAS",25,16,0,"[205]INNESOTA",50,3,2,"[205]ONTANA",8,13,0
2322 DATA"[214]IRGINIA",29,13,22
2330 GOSUB4520:PRINT:PRINT:PRINT"[193][206][217][160][203][197][217][160][198][207][210][160][212][200][197][160]2[206][196][160][204][193][210][199][197][211][212][160][208][210][201][205][193][210][217]";
2332 POKE198,0:WAIT198,1:GETKE$
2340 PRINTCHR$(147):PRINTTAB(13)"[206][197][215][160][217][207][210][203][160][208][210][201][205][193][210][217]":PRINT
2350 PRINT"[206]EW [217]ORK LOOKS LIKE [215]ALTER [205]ONDALE"
2352 PRINT"TERRITORY, BECAUSE IT IS HIGHLY INDUST-"
2354 PRINT"RIALIZED AND HAS A HIGH UNEMPLOYMENT"
2356 PRINT"RATE.  [212]HE [202]EWISH VOTE IS IMPORTANT"
2358 PRINT"HERE."
2360 GOSUB4860
2370 R3=5:GOSUB4450:PRINT:PRINT
2390 PRINT"[201] LOVE [206]EW [217]ORK... AND SO DO THEY..."
2395 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:PRINTCHR$(147)
2400 E(1)=INT(D(1)/100*283):DE(1)=DE(1)+E(1)
2410 E(2)=INT(153*(100-D(1))/100):DE(2)=DE(2)+E(2)
2420 E(3)=INT(77*(100-D(1))/100):DE(3)=DE(3)+E(3)
2430 E(4)=INT(51*(100-D(1))/100):DE(4)=DE(4)+E(4)
2440 KK=4:GOSUB6010
2518 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:PRINTCHR$(147)
2530 PRINT"[202]ESSE [202]ACKSON NOW HAS "DE(4)" DELEGATES"
2532 PRINT"AND LOOKS LIKE HE WILL HAVE SOME EFFECT"
2534 PRINT"ON THE OUTCOME OF THE CONVENTION.":PRINT
2540 PRINT"[212]HE [215]ISCONSIN CAUCUSES TOOK PLACE."
2548 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:PRINTCHR$(147)
2550 GOTO1460
2560 :
2570 DATA"[215]ISC.",56,26,5
2580 PRINT:PRINT:GOSUB4520
2590 PRINT:PRINT"[193][206][217][160][203][197][217][160][198][207][210][160][212][200][197][160][208][197][206][206][211][217][204][214][193][206][201][193][160][208][210][201][205][193][210][217]";:POKE198,0:WAIT198,1
2592 GETKE$
2600 PRINTCHR$(147)
2610 PRINTTAB(10)"[208][197][206][206][211][217][204][214][193][206][201][193][160][208][210][201][205][193][210][217]"
2620 PRINT:PRINT"[212]ODAY IS [212]UESDAY, [193]PRIL 12."
2630 GOSUB4860
2640 R3=5:GOSUB4450
2660 PRINT:PRINT"[208]ENNSYLVANIA VOTED LIKE THIS...":PRINT
2670 E(1)=INT(D(1)/100*194):DE(1)=DE(1)+E(1)
2680 E(2)=INT(159*(100-D(1))/100):DE(2)=DE(2)+E(2)
2690 E(3)=INT(17*(100-D(1))/100):DE(3)=DE(3)+E(3)
2700 E(4)=INT(18*(100-D(1))/100):DE(4)=DE(4)+E(4)
2710 KK=4:GOSUB6010
2780 PRINT
2790 PRINT"[212]HERE ARE MANY PRIMARIES AND CAUCUSES"
2792 PRINT"NOW.":PRINT
2794 PRINT"[208][210][197][211][211][160][193][160][203][197][217][160][212][207][160][211][197][197][160][212][200][197][205].";:POKE198,0:WAIT198,1:GETKE$
2800 PRINTCHR$(147):GOTO1470
2810 DATA"[193]RIZONA",18,19,1,"[196].[195].",4,0,12,"[204]A.",16,21,24
2812 DATA"[205]O.",52,9,14,"[212]ENN.",32,20,15,"[213]TAH",3,14,0,"[214]ERMONT",5,8,3
2820 GOSUB4520:PRINT:PRINT
2830 PRINT"[193][206][217][160][203][197][217][160][198][207][210][160][212][200][197][160][204][193][210][199][197][211][212][160][195][193][213][195][213][211]";:POKE198,0:WAIT198,1:GETKE$
2840 PRINTCHR$(147):PRINTTAB(14)"[212][197][216][193][211][160][195][193][213][195][213][211]":PRINT
2850 PRINT"[193]LL THE POLITICAL EXPERTS ARE SAYING":
2852 PRINT"THAT IF [200]ART FAILS TO WIN HERE OR IN"
2854 PRINT"[207]HIO NEXT [212]UESDAY, HE SHOULD DROP OUT"
2856 PRINT"OF THE RACE.  [212]HE [200]ISPANIC VOTE IS"
2858 PRINT"IMPORTANT HERE."
2860 GOSUB4860
2870 R3=7:GOSUB4450
2878 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:PRINTCHR$(147)
2880 PRINT"[212]HE CAUCUSES VOTED AS FOLLOWS:":PRINT:PRINT
2900 E(1)=INT(D(1)/100*167):DE(1)=DE(1)+E(1)
2910 E(2)=INT(99*(100-D(1))/100):DE(2)=DE(2)+E(2)
2920 E(3)=INT(38*(100-D(1))/100):DE(3)=DE(3)+E(3)
2930 E(4)=INT(30*(100-D(1))/100):DE(4)=DE(4)+E(4)
2940 KK=4:GOSUB6010
3010 PRINT
3020 PRINT"[208]RESS ANY KEY TO FIND OUT WHAT HAPPENED"
3022 PRINT"IN [195]OLORADO, [200]ART'S HOME STATE.";:POKE198,0:WAIT198,1:GETKE$
3030 PRINTCHR$(147)
3040 GOTO1470
3050 DATA"[195]OLORADO",0,45,0
3060 POKE781,17:SYS65520
3070 GOSUB4520:PRINT:PRINT:PRINT
3072 PRINT"[193][206][217][160][203][197][217][160][198][207][210][160][207][200][201][207]'[211][160][208][210][201][205][193][210][217]";:POKE198,0:WAIT198,1:GETKE$
3080 PRINTCHR$(147):PRINTTAB(14)"[207][200][201][207][160][208][210][201][205][193][210][217]"
3090 PRINT:PRINT"[212]HIS MAY BE [200]ART'S LAST STAND."
3100 GOSUB4860
3110 R3=8:GOSUB4450
3120 PRINT:PRINT"[201]T LOOKS LIKE [200]ART IS BEATING [205]ONDALE'S"
3122 PRINT"EARLY LEAD.":PRINT:PRINT
3140 E(1)=INT(D(1)/100*175):DE(1)=DE(1)+E(1)
3150 E(2)=INT(79*(100-D(1))/100):DE(2)=DE(2)+E(2)
3160 E(3)=INT(86*(100-D(1))/100):DE(3)=DE(3)+E(3)
3170 E(4)=INT(10*(100-D(1))/100):DE(4)=DE(4)+E(4)
3180 KK=4:GOSUB6010
3250 PRINT
3260 PRINT"[200]ART FEELS HE DID WELL ENOUGH TO STAY   IN THE RACE.":PRINT
3268 PRINT"[208][210][197][211][211][160][193][160][203][197][217].";:POKE198,0:WAIT198,1:GETKE$:PRINTCHR$(147)
3270 PRINT"[212]HERE WERE THREE OTHER PRIMARIES TODAY"
3272 PRINT"AS WELL AS AS THREE CONTESTS BETWEEN"
3274 PRINT"NOW AND FINAL [212]UESDAY, [202]UNE 5."
3276 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217].";:POKE198,0:WAIT198,1:GETKE$
3280 PRINTCHR$(147):GOTO1470
3290 DATA"[206]. [195]AROL.",44,18,14,"[205]ARYLAND",46,3,17,"[201]NDIANA",37,38,4
3292 DATA"[201]DAHO",6,11,0,"[206]EBRASKA",8,16,0,"[207]REGON",17,29,0
3300 GOSUB4520:PRINT:PRINT:PRINT"[193][206][217][160][203][197][217][160][198][207][210][160][212][200][197][160][194][201][199][199][197][211][212][160][207][198][160][212][200][197][205][160][193][204][204]!!";
3302 POKE198,0:WAIT198,1:GETKE$
3310 PRINTCHR$(147):PRINTTAB(11)"??????????[160][208][210][201][205][193][210][217]"
3320 PRINT:PRINT"[212]HIS PRIMARY SENDS THE MOST DELEGATES"
3322 PRINT"TO THE CONVENTION, WHICH IS IN THIS     STATE."
3330 PRINT:INPUT"[215]HAT PRIMARY IS THIS";Q$
3332 IFQ$="[195]ALIFORNIA"ORQ$="CALIFORNIA"ORQ$="[195][193][204][201][198][207][210][206][201][193]"THEND(1)=D(1)+6:GOTO3350
3340 D(1)=D(1)-10
3350 POKE781,1:POKE782,11:SYS65520:PRINT"[195][193][204][201][198][207][210][206][201][193][160][208][210][201][205][193][210][217]"
3351 POKE781,10:POKE782,0:SYS65520
3352 R3=20:GOSUB4450
3360 IFD(1)>100THEND(1)=100
3380 E(1)=INT(D(1)/100*345):DE(1)=DE(1)+E(1)
3390 E(2)=INT(96*(100-D(1))/100):DE(2)=DE(2)+E(2)
3400 E(3)=INT(216*(100-D(1))/100):DE(3)=DE(3)+E(3)
3410 E(4)=INT(86*(100-D(1))/100):DE(4)=DE(4)+E(4)
3420 KK=4:GOSUB6010
3490 PRINT
3500 PRINT"[201]N OTHER [211]UPER [212]UESDAY RACES TODAY,"
3502 PRINT"[200]ART GOT ABSOLUTELY NO DELEGATES IN"
3504 PRINT"[206]EW [202]ERSEY.":PRINT:PRINT
3506 PRINT"[208][210][197][211][211][160][193][206][217][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$
3510 PRINTCHR$(147):GOTO1470
3520 DATA"[206] [202]ERSEY",99,0,8,"[215] [214]IRGIN.",22,13,0,"[211] [196]AKOTA",6,9,0
3522 DATA"[206] [205]EXICO",11,12,0
3530 PRINT:PRINT"[208][210][197][211][211] [193][206][217][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:PRINTCHR$(147)
3540 REM *** FIGURE AND TALK ABOUT UNCOMMITTED DELEGATES
3550 PRINT"[207]NE MAJOR FACTOR OF THE CAMPAIGN THAT"
3552 PRINT"HASN'T BEEN DEALT WITH YET IS THE"
3554 PRINT"UNCOMMITTED DELEGATES."
3560 PRINT
3570 DE(10)=3933-(DE(1)+DE(2)+DE(3)+DE(4)+DE(5))
3580 PRINT"[201]N THIS CAMPAIGN THERE ARE "DE(10)
3582 PRINT"UNCOMMITTED DELEGATES.":PRINT
3590 PRINT"[217]OU WILL GET A PERCENTAGE OF THOSE WHEN"
3592 PRINT"THE VOTING TAKES PLACE.":PRINT
3600 PRINT"[193]LL THE PRIMARIES AND CAUCUSES ARE"
3602 PRINT"OVER.  [212]HE NEXT STEP IS THE NATIONAL"
3604 PRINT"CONVENTION.":PRINT:PRINT:PRINT:GOSUB4520
3610 PRINT:PRINT"[193][206][217][160][203][197][217][160][212][207][160][199][207][160][212][207][160][212][200][197][160][195][207][206][214][197][206][212][201][207][206].";:POKE198,0:WAIT198,1:GETKE$
3620 REM *** THE CONVENTION
3630 PRINTCHR$(147):PRINTTAB(13)"[212][200][197][160][195][207][206][214][197][206][212][201][207][206]":PRINT
3640 GOSUB4640
3650 GOSUB4050:PRINTCHR$(147)
3660 PRINT:PRINT"[200]ERE ARE THE POSSIBLE THINGS YOU MAY    DO:"
3670 PRINT
3680 PRINT"1) [215]ITHDRAW FROM THE RACE"
3690 PRINT"2) [194]ECOME [215]ALTER [205]ONDALE'S [214]-[208]"
3700 PRINT"3) [194]ECOME [199]ARY [200]ART'S [214]-[208]"
3710 PRINT"4) [204]ET [205]ONDALE BE YOUR [214]-[208]"
3720 PRINT"5) [204]ET [200]ART BE YOUR [214]-[208]"
3730 PRINT"   [206][207][212][197]: [212]HE [214]ICE [208]RESIDENT ([214]-[208])"
3732 PRINT"   ALWAYS GIVES HIS/HER DELEGATES"
3734 PRINT"   TO THE [208]RESIDENT."
3740 PRINT"6) [193]GREE TO [202]ACKSON'S DEMANDS TO GET       HIS DELEGATES"
3750 PRINT"7) [211]EE THE DELEGATE COUNT"
3760 PRINT:INPUT"[215]HICH";Y
3770 ONYGOSUB3820,3860,3910,3960,4010,4300,4200
3780 PRINT:PRINT
3790 PRINTCHR$(147):GOSUB4350:REM *** OTHER CANDIDATES' DECISION
3800 GOTO3630
3810 REM *** IF YOU WANT TO DROP OUT OF THE RACE AND LET HART AND MONDALE SPLIT
3812 REM *** YOUR DELEGATES
3820 INPUT"[193]RE YOU SURE? ";X$:IFX$="N"ORX$="[206]"ORX$="[206][207]"ORX$="NO"THENGOTO3845
3830 DE(2)=DE(2)+DE(1)/2:DE(3)=DE(3)+DE(1)/2:DE(1)=0
3840 GOSUB4050:DE(2)=DE(2)+DE(3):V(2)=3:GOSUB4050
3845 PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:RETURN
3850 REM *** BECOMING MONDALE'S VICE PRESIDENT
3860 PRINT
3865 IFTD(1)+TD(2)<1967THENPRINT"[200]E DOESN'T WANT YOU YET.":GOTO3895
3870 IFDE(1)>DE(2)THENPRINT"[215]HY?  [200]E'D PROBABLY BE WILLING TO BE    YOURS!"
3872 IFDE(1)>DE(2)THENGOTO3895
3880 DE(2)=DE(2)+DE(1):DE(1)=0:V(2)=1
3890 GOSUB4050:DE(2)=1967:GOSUB4050
3895 PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:RETURN
3900 REM *** BECOMING HART'S VICE PRESIDENT
3910 PRINT:IFTD(1)+TD(3)<1967THENPRINT"[200]E DOESN'T WANT YOU YET.":GOTO3947
3920 IFDE(1)>DE(3)THENPRINT"[215]HY?  [200]E'D PROBABLY BE WILLING TO BE"
3922 IFDE(1)>DE(3)THENPRINT"YOUR [214]ICE [208]RESIDENT INSTEAD":GOTO3947
3930 DE(3)=DE(3)+DE(1):DE(1)=0:V(3)=1
3940 GOSUB4050:DE(3)=1967
3945 GOSUB4050
3947 PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:RETURN
3950 REM *** HAVING MONDALE BE YOUR VICE PRESIDENT
3960 PRINT
3965 IFTD(2)+TD(1)<1967THENPRINT"[200]E WOULDN'T HELP YOU WIN YET.":GOTO3990
3970 IFDE(2)>DE(1)THENPRINT"[200]E INSISTS THAT YOU BECOME HIS, OR NO   DEAL."
3972 IFDE(2)>DE(1)THENGOTO3990
3980 DE(1)=DE(1)+DE(2):DE(2)=0:V(1)=2:RETURN
3990 PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:RETURN
4000 REM *** HAVING HART BECOME YOUR VICE PRESIDENT
4010 PRINT
4015 IFTD(3)+TD(1)<1967THENPRINT"[200]E WOULDN'T HELP YOU WIN YET.":GOTO4040
4020 IFDE(3)>DE(1)THENPRINT"[200]E INSISTS THAT YOU BECOME HIS, OR NO   DEAL."
4022 IFDE(3)>DE(1)THENGOTO4040
4030 DE(1)=DE(1)+DE(3):DE(3)=0:V(1)=3
4040 PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:RETURN
4050 FORX=1TO5
4060 PRINTCHR$(147)
4070 REM *** WINNER
4080 IFTD(X)>1967THENPRINTC$(X);" IS THE NEW NOMINEE!":FLAG=1:K=X:X=5
4090 NEXTX
4092 IF FLAG=1THENPRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$
4095 IFFLAG=1THENPRINTCHR$(147):GOTO4110
4100 RETURN
4110 PRINT"[212]HE BALLOT THIS [206]OVEMBER WILL LOOK LIKE THIS:":PRINT
4130 PRINTC$(K);TAB(25)"[210]ONALD [210]EGAN"
4140 PRINT
4150 PRINT"     AND         VS.        AND"
4160 PRINT
4170 PRINTC$(V(K));TAB(25)"[199]EORGE [194]USH":PRINT:PRINT
4180 PRINT:PRINT"[212]HIS SIMULATION IS NOW OVER.  [212]HANK YOU.":PRINT:PRINT
4182 PRINT"[193][206][217][160][203][197][217] [212][207] [197][206][196]";:POKE198,0:WAIT198,1:GETKE$
4183 GOTO63000
4190 REM *** PRINTING THE DELEGATE COUNT
4200 PRINTCHR$(147):PRINT"1967 DELEGATES ARE NEEDED FOR NOMINATION":PRINT
4210 FORX=1TO10
4220 PRINTC$(X);
4230 IFPEEK(211)=25THEN4260
4240 PRINT".";
4250 GOTO4230
4260 PRINTSPC(6-LEN(STR$(DE(X)))-1);DE(X)
4270 NEXTX:PRINT
4280 PRINT"[193][206][217][160][203][197][217][160][212][207][160][210][197][212][213][210][206][160][212][207][160][212][200][197][160][195][207][206][214][197][206][212][201][207][206]";:POKE198,0:WAIT198,1:GETKE$
4285 RETURN
4290 REM *** GETTING JACKSON'S DELEGATES
4300 PRINT
4305 IFDE(4)+DE(1)=DE(1)THENPRINT"[200]IS DELEGATES HAVE BEEN TAKEN.":GOTO4330
4310 PRINT"[215]ILL YOU AGREE TO ALL OF [202]ESSE"
4312 PRINT"[202]ACKSON'S DEMANDS ABOUT CIVIL RIGHTS"
4314 PRINT"AND RUN OFF PRIMARIES?":INPUTQ$
4316 IFLEFT$(Q$,1)="Y"ORLEFT$(Q$,1)="[217]"THENPRINT"[200]E GAVE YOU ALL HIS DELEGATES."
4317 IFLEFT$(Q$,1)="Y"ORLEFT$(Q$,1)="[217]"THENDE(1)=DE(1)+DE(4):DE(4)=0:GOTO4330
4320 PRINT"[198]ORGET IT!"
4330 PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:RETURN
4340 REM *** ACCORDING TO THE RANDOM VARIABLE 'R4' CERTAIN EVENTS CAN HAPPEN
4342 REM *** EACH TURN.  MONDALE CAN TAKE HART AS A VICE PRESIDENT.  MCGOVERN
4350 R4=INT(12*RND(1))+1
4370 IFR4=1ORR4=12THENPRINT"[199]EORGE [205]C[199]OVERN JUST GAVE DELEGATES TO"
4372 IFR4=1ORR4=12THENPRINT"HIS OLD CAMPAIGN MANAGER, [199]ARY [200]ART."
4374 IFR4=1ORR4=12THENDE(3)=DE(3)+DE(5):DE(5)=0:GOTO4430
4380 IFTD(2)+TD(3)<1967THEN4400
4390 IFR4=2THENPRINT"[200]ART HAS AGREED TO BE [205]ONDALE'S [214]ICE    [208]RESIDENT."
4392 IFR4=2THENDE(2)=DE(2)+DE(3):DE(3)=0:RETURN
4400 IFDE(4)=0THEN4430
4410 IFR4=5ORR4=11THENPRINT"[202]ACKSON HAS GIVEN [205]ONDALE SOME"
4412 IFR4=5ORR4=11THENPRINT"DELEGATES IN RETURN FOR SOME FAVORS"
4414 IFR4=5ORR4=11THENPRINT"ABOUT CIVIL RIGHTS.":DE(2)=DE(2)+DE(4):DE(4)=0:RETURN
4420 IFR4=7THENPRINT"[202]ACKSON HAS GIVEN [200]ART SOME DELEGATES"
4422 IFR4=7THENPRINT"IN RETURN FOR SOME FAVORS ABOUT CIVIL"
4424 IFR4=7THENPRINT"RIGHTS.":DE(3)=DE(3)+DE(4):DE(4)=0
4426 RETURN
4430 PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:RETURN
4440 REM *** RANDOM PTS. ADDED OR SUBTRACTED
4450 R=INT((R3)*RND(1))
4460 R2=INT((2)*RND(1))+1
4470 IFR2=1THEND(1)=D(1)-R
4480 IFR2=2THEND(1)=D(1)+R
4490 IFD(1)<0THEND(1)=0
4495 IFD(1)>100THEND(1)=100
4500 RETURN
4510 REM *** AFTER EACH GROUP OF PRIMARIES AND CAUCUSES, THE DELEGATE COUNT MAY
4512 REM *** BE VIEWED
4520 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][206][217][160][203][197][217][160][212][207][160][211][197][197][160][212][200][197][160][196][197][204][197][199][193][212][197] [195][207][213][206][212] [211][207] [198][193][210]";
4530 POKE198,0:WAIT198,1:GETKE$
4535 PRINTCHR$(147)
4540 PRINT"1967 DELEGATES ARE NEEDED FOR NOMINATION"
4550 FORX=1TO9
4560 PRINTC$(X);
4570 IFPEEK(211)=25THEN4600
4580 PRINT".";
4590 GOTO4570
4600 PRINTSPC(6-LEN(STR$(DE(X)))-1);DE(X)
4610 NEXTX
4620 RETURN
4630 REM *** WHEN THE DELEGATES ACTUALLY VOTE (INCLUDING THE UNCOMMITTEDS)
4640 B=B+1
4650 PRINT"[194]ALLOT (VOTE) #";B
4660 PRINT:PRINT"1967 DELEGATES ARE NEEDED FOR NOMINATION"
4670 IFDE(1)=0THEN4730
4680 PRINT:PRINTC$(1);
4690 IFPEEK(211)=22THEN4720
4700 PRINT".";
4710 GOTO4690
4720 TD(1)=DE(1)+INT((D(1)/100*DE(10)))
4725 PRINTSPC(6-LEN(STR$(DE(1)))-1);DE(1);" DELEGATES"
4730 IFDE(2)=0THEN4760
4740 PRINT"[215]ALTER [205]ONDALE........";
4750 TD(2)=DE(2)+INT((100-D(1))/2/100*DE(10))
4755 PRINTSPC(6-LEN(STR$(DE(2)))-1);DE(2);" DELEGATES"
4760 IFDE(3)=0THEN4790
4770 PRINT"[199]ARY [200]ART.............";
4780 TD(3)=DE(3)+INT((100-D(1))/2/100*DE(10))
4785 PRINTSPC(6-LEN(STR$(DE(3)))-1);DE(3);" DELEGATES"
4790 IFDE(4)=0THEN4820
4800 PRINT"[202]ESSE [202]ACKSON.........";
4810 PRINTSPC(6-LEN(STR$(DE(4)))-1);DE(4);" DELEGATES"
4820 IFDE(5)=0THEN4850
4830 PRINT"[199]EORGE [205]C[199]OVERN.......";
4840 PRINTSPC(6-LEN(STR$(DE(5)))-1);DE(5);" DELEGATES"
4845 IFB=1ANDTD(2)>1967THENV(2)=12
4850 PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][160][203][197][217]";:POKE198,0:WAIT198,1:GETKE$:RETURN
4860 REM *** QUESTIONS
4870 R5=INT(20*RND(1))+1
4872 IFR5>8THENR5=R5-8:GOTO4885
4880 ONR5GOSUB4950,4990,5030,5070,5110,5150,5190,5230:GOTO4890
4885 ONR5GOSUB5270,5310,5350,5390,5430,5470,5510,5550,5590,5630,5670,5710
4890 PRINT
4900 PRINTQ$:INPUTY$:IFY$=A$THEND(1)=D(1)+P:PRINT:PRINT"[210]IGHT!!":GOTO4940
4910 PRINT:PRINT"[215]RONG.  [212]HE CORRECT ANSWER WAS ------":PRINTA$:D(1)=D(1)-(10-P)
4920 IFD(1)<0THEND(1)=0
4930 IFD(1)>100THEND(1)=100
4940 Y$="":RETURN
4950 IFW(1)=1THEN4990
4960 Q$="[215]HERE IS THE [196]EMOCRATIC [206]ATIONAL [195]ON-   VENTION HELD THIS YEAR, 1984?"
4962 A$="SAN FRANCISCO":P=5
4970 W(1)=1
4980 RETURN
4990 IFW(2)=1THEN5030
5000 Q$="[208]RIMARIES AND CAUCUSES SEND WHAT TO THE [206]ATIONAL [195]ONVENTION?"
5005 A$="DELEGATES":P=3
5010 W(2)=1
5020 RETURN
5030 IFW(3)=1THEN5070
5040 Q$="[196]OES EVERY STATE HAVE A PRIMARY AND/OR  A CAUCUS?"
5045 A$="Y":P=5
5050 W(3)=1
5060 RETURN
5070 IFW(4)=1THEN5110
5080 Q$="[201]N THE [196]EMOCRATIC RACE THIS YEAR, HOW   MANY DELEGATES ARE AT STAKE?"
5085 A$="1967":P=5
5090 W(4)=1
5100 RETURN
5110 IFW(5)=1THEN5150
5120 Q$="[196]OES THE [195]ONSTITUTION PROVIDE FOR       POLITICAL PARTIES?"
5125 A$="N":P=7
5130 W(5)=1
5140 RETURN
5150 IFW(6)=1THEN5190
5160 Q$="[215]HICH CANDIDATE HAS THE SUPPORT OF      LABOR UNIONS?"
5165 A$="MONDALE":P=7
5170 W(6)=1
5180 RETURN
5190 IFW(7)=1THEN5230
5200 Q$="[200]OW MANY YEARS DOES A PRESIDENT SERVE?"
5205 A$="4":P=3
5210 W(7)=1
5220 RETURN
5230 IFW(8)=1THEN5270
5240 Q$="[201]N WHAT YEAR WAS [205]C[199]OVERN THE DEMOCRAT- IC NOMINEE FOR PRESIDENT?"
5245 A$="1972":P=6
5250 W(8)=1
5260 RETURN
5270 IFW(9)=1THEN5310
5280 Q$="[215]HICH CANDIDATE FEELS CIVIL RIGHTS OUGHTTO BE OUR HIGHEST PRIORITY?"
5285 A$="JACKSON":P=5
5290 W(9)=1
5300 RETURN
5310 IFW(10)=1THEN5350
5320 Q$="[215]HICH CANDIDATE IS A SENATOR FROM [207]HIO?"
5325 A$="GLENN":P=6
5330 W(10)=1
5340 RETURN
5350 IFW(11)=1THEN5390
5360 Q$="[215]HAT IS IT CALLED WHEN A POLITICIAN     BACKS A CANDIDATE?"
5365 A$="ENDORSEMENT":P=8
5370 W(11)=1
5380 RETURN
5390 IFW(12)=1THEN5430
5400 Q$="[215]HAT IS THE SYMBOL OF THE [196]EMOCRATIC    PARTY?"
5405 A$="DONKEY":P=6
5410 W(12)=1
5420 RETURN
5430 IFW(13)=1THEN5470
5440 Q$="[215]HICH CANDIDATE ORBITTED THE EARTH?"
5445 A$="GLENN":P=5
5450 W(13)=1
5460 RETURN
5470 IFW(14)=1THEN5510
5480 Q$="[201]S [199]ARY [200]ART THE [199]OVERNOR OF [195]OLORADO?"
5485 A$="N":P=4
5490 W(14)=1
5500 RETURN
5510 IFW(15)=1THEN5550
5520 Q$="[215]HICH CANDIDATE WON MANY URBAN AREAS    INCLUDING [208]HILIDELPHIA?"
5525 A$="JACKSON":P=5
5530 W(15)=1
5540 RETURN
5550 IFW(16)=1THEN5590
5560 Q$="[215]HICH CANDIDATE WAS A SENATOR FROM      [205]INNESOTA?"
5565 A$="MONDALE":P=3
5570 W(16)=1
5580 RETURN
5590 IFW(17)=1THEN5630
5600 Q$="[215]HICH CANDIDATE GOT THE MAJORITY OF THE BLACK VOTE?"
5605 A$="JACKSON":P=2
5610 W(17)=1
5620 RETURN
5630 IFW(18)=1THEN5670
5640 Q$="[215]HAT SLUR DID [202]ACKSON CALL THE [202]EWS     (PLURAL)?"
5645 A$="HYMIES":P=7
5650 W(18)=1
5660 RETURN
5670 IFW(19)=1THEN5710
5680 Q$="[215]HAT IS THE NAME OF THE SENATOR FROM    [195]ALIFORNIA WHO RAN IN 1984?"
5685 A$="CRANSTON":P=9
5690 W(19)=1
5700 RETURN
5710 IFW(20)=1THEN4950
5720 Q$="[215]HAT IS A PARTY MEETING AT A STATE LEVELTO SELECT DELEGATES CALLED?"
5725 A$="CAUCUS":P=5
5730 W(20)=1
5740 RETURN
6000 REM *** PRINT DELEGATE COUNT
6010 FORX=1TOKK
6020 PRINTC$(X);
6030 IFPEEK(211)=23THEN6060
6040 PRINT".";
6050 GOTO6030
6060 PRINTSPC(6-LEN(STR$(E(X)))-1);E(X);" DELEGATES"
6070 NEXTX
6080 RETURN
63000 PRINT"[147][215]OULD YOU LIKE TO TRY AGAIN?":POKE198,0:WAIT198,1:GETK$
63002 IFK$<>"Y"ANDK$<>"N"THEN63000
63004 IFK$="Y"THENRESTORE:RUN
63010 :
63020 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63025 POKE631,13:POKE632,13:POKE198,2:END